home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_dps1.ps < prev    next >
Encoding:
Text File  |  1997-05-29  |  4.3 KB  |  137 lines  |  [TEXT/gsVR]
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for most of the Display PostScript functions
  19. % that are also included in Level 2.
  20.  
  21. level2dict begin
  22.  
  23. % ------ Virtual memory ------ %
  24.  
  25. /currentshared /.currentglobal load def
  26. /scheck /.gcheck load def
  27. %****** FOLLOWING IS WRONG ******
  28. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  29.  
  30. % Global and LocalFontDirectory must remain in systemdict
  31. % even if we temporarily exit Level 2 mode.
  32.  
  33. end                % level2dict
  34. systemdict begin
  35.  
  36. /SharedFontDirectory .FontDirectory .gcheck
  37.  { .currentglobal false .setglobal
  38.    /LocalFontDirectory .FontDirectory dup maxlength dict copy def
  39.    .setglobal .FontDirectory
  40.  }
  41.  { /LocalFontDirectory .FontDirectory def
  42.    50 dict
  43.  }
  44. ifelse def
  45.  
  46. end                % systemdict
  47. level2dict begin
  48.  
  49. % setshared must rebind FontDirectory to the appropriate one of
  50. % Local or SharedFontDirectory.
  51.  
  52. /.setglobal        % <bool> .setglobal -
  53.  { dup .setglobal
  54.    //systemdict /FontDirectory .currentglobal
  55.     { //SharedFontDirectory }
  56.     { //systemdict /LocalFontDirectory get }    % can't embed ref to local VM
  57.    ifelse .forceput pop
  58.  } .bind odef        % must bind .forceput and .setglobal
  59.             % even if NOBIND in effect
  60. /setshared /.setglobal load def
  61. .currentglobal setshared
  62.  
  63. % ------ Fonts ------ %
  64.  
  65. /selectfont        % <fontname> <size> selectfont -
  66.  { 1 index findfont
  67.    1 index dup type /arraytype eq { makefont } { scalefont } ifelse
  68.    setfont pop pop
  69.  } odef
  70. % undefinefont has to take local/global VM into account.
  71. /undefinefont        % <fontname> undefinefont -
  72.  { .FontDirectory 1 index .undef
  73.    .currentglobal
  74.     {        % Current mode is global; delete from local directory too.
  75.       //systemdict /LocalFontDirectory .knownget
  76.        { 1 index .undef }
  77.       if
  78.     }
  79.     {        % Current mode is local; if there was a shadowed global
  80.         % definition, copy it into the local directory.
  81.       //systemdict /SharedFontDirectory .knownget
  82.        { 1 index .knownget
  83.       { .FontDirectory 2 index 3 -1 roll put }
  84.      if
  85.        }
  86.       if
  87.     }
  88.    ifelse pop
  89.  } odef
  90.  
  91. % If we load a font into global VM within an inner save, the restore
  92. % will delete it from FontDirectory but not from SharedFontDirectory.
  93. % We have to handle this by making restore copy missing entries from
  94. % SharedFontDirectory to FontDirectory.  Since this could slow down restore
  95. % considerably, we define a new operator .dictcopynew for this purpose.
  96. % Furthermore, if FAKEFONTS is in effect, we want global real fonts to
  97. % override fake local ones.  We handle this by brute force.
  98. /restore        % <save> restore -
  99.  { dup //restore    % bind even if NOBIND
  100.    //systemdict /LocalFontDirectory get
  101.    FAKEFONTS
  102.     { mark
  103.         % We want to delete a fake font from the local directory
  104.         % iff the global directory now has no definition for it,
  105.         % or a non-fake definition.
  106.       1 index dup
  107.        {        % Stack: lfd mark lfd key ... lfd key value
  108.      length 1 gt
  109.       {        % This is a real local definition; don't do anything.
  110.         pop
  111.       }
  112.       {        % This is a fake local definition, check for global.
  113.         //SharedFontDirectory 1 index .knownget
  114.          {        % A global definition exists, check for fake.
  115.            length 1 eq { pop } { 1 index } ifelse
  116.          }
  117.          {        % No global definition, delete the local one.
  118.            1 index
  119.          }
  120.         ifelse
  121.       }
  122.      ifelse
  123.        } forall
  124.       pop counttomark 2 idiv { .undef } repeat pop
  125.     }
  126.    if
  127.    //SharedFontDirectory exch .dictcopynew pop
  128.    .currentglobal .setglobal    % Rebind FontDirectory according to current VM.
  129.    pop
  130.  } bind odef
  131.  
  132. % ------ Miscellaneous ------ %
  133.  
  134. /undef /.undef load def
  135.  
  136. end                % level2dict
  137.